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MODULE BASSINSTR ind the position of a substring 


( 
DENT = *1-005" ile: BASINSTR.B32 
= 


BEGIN 


MAREE SLIII IIIT IIIT TET TTT Terri irri rit it ici i sii cit iit itiiiiiiify 
' 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:# OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie TRANSFERRED. ‘ 
* 
® 
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® 
® 
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!@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO — WITHOUT NOTICE 
: eePOhat ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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+ 
FACILITY: String support Library 


ABSTRACT: This module takes 2 input strings of any class and dtype 
and returns the position of the substring in the main string 
starting at an input position 


ENVIRONMENT: User mode, AST level or not or mixed 
AUTHOR: R. Will, CREATION DATE: 10-Mar-79 
MODIFIED BY: 
R. Will, 10-Mar-79 : VERSION 01 

- original 
1-008 - String cleanup. Call STRSPOS. RW 20-0CT-79 
1- - Corcers & type in the Linkage specifications. 

JBS 02-NOV-1979 


1-004 = Use JSB entry point of STR_POSITION. RW 2-Nov-79 
1-005 = Use CALL entry point of STR_POSITION. RW 15-NOV-79 
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bes =1984 00:39:1 AX-11 Bliss-32 V4. P 
16-Sep-19 5 99533505 BASRTL. SRC BASINSTR.63 B32;1 moe (25 


; SWITCHES: 
SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 


: LINKAGES: NONE 


! TABLE OF CONTENTS: 


FORWARD ROUTINE 
BASSINSTR; ! find substring position 
! 


INCLUDE FILES: 


REQUIRE “RTILIN:RTLPSECT'; ! Declare PSECTS code 
' 


: MACROS: NONE 
EQUATED SYMBOLS: NONE 
3 PSECT DECLARATIONS 
DECLARE_PSECTS (BAS); 
OWN STORAGE: NONE 
7 EXTERNAL REFERENCES: 


exTERIM, ROUT INE 
STRSPOSITION; ! routine to do the actual search 


Sak . 
SINSTR 16-$ 
“805 1828 
GLOBAL ROUTINE BASSINSTR ( 
START POS, 
SRC_DESC, 


iy Ele 


o 

FUNCTIONAL DESCRIPTION: 
This routine takes two source eer yage 
dtype and ¢cess and finds the position 
source str 
returns the position of the substr 
the parameters in a different order 

FORMAL PARAMETERS: 
START _POS.rl.v 
SRC_DESC.rt.dx 
SUB_DESC.rt.dx 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
FIND_POS.wlu.v 


SIDE EFFECTS: 
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BASRTL.SRCJBASINSTR.B 


! find position of substring in string 
! value of position to start search 

! descriptor of string to search 
descriptor of string to find 


of an 

of the substring in the 

ng starting at the enous starting position. The routine 
ng in the source string. This 

routine merely calls BASSPOS which does the exact same thing 


with 


value of position in source to begin search 
pointer to descriptor of string to be searched 
pointer to descriptor of string to find 


value of start of substring in source string 


This routine calls STRSPOSITION and therefore may signal any of 
its errors or have any of its side effects, including locking 
a string from being written for a short period. 


BEGIN 
om STRSPOSITION (.SRC_DESC, .SUB_DESC, START_POS); 


'End-of BASSINSTR 
-TITLE BASSINSTR 
SIDENT \1=005\ 
.EXTRN STRSPOSITION 
-PSECT _BASSCODE,NOWRT, SHR, PIC,2 
-ENTRY BASSINSTR, Save nothing 


PUSHAB STAR 
MOVa  SRC_DESC, -(SP) 


AX-11 Bliss-32 V4.0-74 Pp 
¢ 3.1 pi ( ; 


——» 


‘BasginstR 1$-se0-19R6 00:59:12 yanedt OLiegcs2 veiQe742 Page 4 
000000006 00 03 fe B 30008 CALLS #3, STRSPOSITION : 
RET 3; 0236 


; Routine Size: 17 bytes, Routine Base: _BASSCODE + 0000 


: 145 7 7 

; yg 3 1 END ‘End of module 
; 14 1 

3; 168 40 0 ELUDOM 


PSECT SUMMARY 


Name Bytes Attributes 
; _BASSCODE 17 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
; COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS=L1IS$:BASINSTR/OBJ=0BJ$:BASINSTR MSRC$:BASINSTR/UPDATE=(ENH$:BASINSTR) 
ad F ; 17 sade + 0 data bytes 
me: 0:01.6 


Elapsed Time: ue F3'5 
Lines/CPU Min: 9056 
eet Ae le) 20981 

Y Used: 17 pages 
te ation Complete 
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